
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tIndustrias
# Region "tEmpresas"
	private mlistatEmpresas As New List (Of tEmpresas)
Public Property ListatEmpresas As System.Collections.Generic.List(Of tEmpresas)
Get
dim mtEmpresas As New tEmpresas
mlistatEmpresas =mtEmpresas.TraerFiltradoListOf("IdIndustria",Me.IdIndustria)
Return mlistatEmpresas
End Get
Set
RemoveAllListatEmpresas()
If Not (Value Is Nothing) Then
Dim otEmpresas As tEmpresas
	For Each otEmpresas in Value
		AddListatEmpresas(otEmpresas)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatEmpresas(newtEmpresas As tEmpresas)
	If (mlistatEmpresas Is Nothing) Then
		mlistatEmpresas = new System.Collections.Generic.List(Of tEmpresas)
	End If
	If Not mlistatEmpresas.Contains(newtEmpresas) Then
		mlistatEmpresas.Add(newtEmpresas)
		newtEmpresas.tIndustrias = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatEmpresas(oldtEmpresas As tEmpresas)
	If (mlistatEmpresas.Contains(oldtEmpresas)) Then
		mlistatEmpresas.Remove(oldtEmpresas)
		oldtEmpresas.tIndustrias = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatEmpresas()
	If Not (mlistatEmpresas Is Nothing)
		Dim tmp_listatEmpresas As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtEmpresas As tEmpresas
		For Each oldtEmpresas in mlistatEmpresas
			tmp_listatEmpresas.Add(oldtEmpresas)
		Next
	mlistatEmpresas.Clear()
	For Each oldtEmpresas in tmp_listatEmpresas
		oldtEmpresas = Nothing
	Next
	tmp_listatEmpresas.Clear()
	End If
End Sub

# End Region
# Region "tMicroemprendimientos"
	private mlistatMicroemprendimientos As New List (Of tMicroemprendimientos)
Public Property ListatMicroemprendimientos As System.Collections.Generic.List(Of tMicroemprendimientos)
Get
dim mtMicroemprendimientos As New tMicroemprendimientos
mlistatMicroemprendimientos =mtMicroemprendimientos.TraerFiltradoListOf("IdIndustria",Me.IdIndustria)
Return mlistatMicroemprendimientos
End Get
Set
RemoveAllListatMicroemprendimientos()
If Not (Value Is Nothing) Then
Dim otMicroemprendimientos As tMicroemprendimientos
	For Each otMicroemprendimientos in Value
		AddListatMicroemprendimientos(otMicroemprendimientos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatMicroemprendimientos(newtMicroemprendimientos As tMicroemprendimientos)
	If (mlistatMicroemprendimientos Is Nothing) Then
		mlistatMicroemprendimientos = new System.Collections.Generic.List(Of tMicroemprendimientos)
	End If
	If Not mlistatMicroemprendimientos.Contains(newtMicroemprendimientos) Then
		mlistatMicroemprendimientos.Add(newtMicroemprendimientos)
		newtMicroemprendimientos.tIndustrias = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatMicroemprendimientos(oldtMicroemprendimientos As tMicroemprendimientos)
	If (mlistatMicroemprendimientos.Contains(oldtMicroemprendimientos)) Then
		mlistatMicroemprendimientos.Remove(oldtMicroemprendimientos)
		oldtMicroemprendimientos.tIndustrias = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatMicroemprendimientos()
	If Not (mlistatMicroemprendimientos Is Nothing)
		Dim tmp_listatMicroemprendimientos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtMicroemprendimientos As tMicroemprendimientos
		For Each oldtMicroemprendimientos in mlistatMicroemprendimientos
			tmp_listatMicroemprendimientos.Add(oldtMicroemprendimientos)
		Next
	mlistatMicroemprendimientos.Clear()
	For Each oldtMicroemprendimientos in tmp_listatMicroemprendimientos
		oldtMicroemprendimientos = Nothing
	Next
	tmp_listatMicroemprendimientos.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tIndustrias)
            Dim dtDatos As DataTable
            Dim listatIndustrias As New List(Of tIndustrias)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtIndustrias As New tIndustrias
				mtIndustrias.IdIndustria = CType(dr.Item("IdIndustria"),Integer)
				mtIndustrias.Traer_objeto()
            	listatIndustrias.Add( mtIndustrias)
    		Next dr
Return listatIndustrias
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tIndustrias)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatIndustrias As New List(Of tIndustrias)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtIndustrias As New tIndustrias
				mtIndustrias.IdIndustria = CType(dr.Item("IdIndustria"),Integer)
				mtIndustrias.Traer_objeto()
            	listatIndustrias.Add( mtIndustrias)
    		Next dr
Return listatIndustrias
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tIndustrias)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatIndustrias As New List(Of tIndustrias)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtIndustrias As New tIndustrias
				mtIndustrias.IdIndustria = CType(dr.Item("IdIndustria"),Integer)
				mtIndustrias.Traer_objeto()
            	listatIndustrias.Add( mtIndustrias)
    		Next dr
Return listatIndustrias
End Function
# End Region

End Class
End Namespace
